グラフ描画
2510
data1 <- daily1 %>%
filter(ticker == "2510",
date > Sys.Date() - 365)
g <- ggplot(NULL) +
geom_line(data = data1, aes(x = date, y = close, colour = ticker)) +
geom_point(data = subset(zandaka, ticker == "2510"), aes(x =date, y = tanka, colour = ticker)) +
geom_point(data = subset(keikaku, ticker == "2510"), aes(x =date, y = tanka, colour = ticker))
ggplotly(g)
2559
data1 <- daily1 %>%
filter(ticker == "2559",
date > Sys.Date() - 365)
g <- ggplot(NULL) +
geom_line(data = data1, aes(x = date, y = close, colour = ticker)) +
geom_point(data = subset(zandaka, ticker == "2559"), aes(x =date, y = tanka, colour = ticker)) +
geom_point(data = subset(keikaku, ticker == "2559"), aes(x =date, y = tanka, colour = ticker))
ggplotly(g)
TMF
data1 <- daily1 %>%
filter(ticker == "TMF",
date > Sys.Date() - 365)
g <- ggplot(NULL) +
geom_line(data = data1, aes(x = date, y = close, colour = ticker)) +
geom_point(data = subset(zandaka, ticker == "TMF"), aes(x =date, y = tanka, colour = ticker)) +
geom_point(data = subset(keikaku, ticker == "TMF"), aes(x =date, y = tanka, colour = ticker))
ggplotly(g)
bitcoin
data1 <- daily1 %>%
filter(ticker == "bitcoin",
date > Sys.Date() - 365)
g <- ggplot(NULL) +
geom_line(data = data1, aes(x = date, y = close, colour = ticker)) +
geom_point(data = subset(zandaka, ticker == "bitcoin"), aes(x =date, y = tanka, colour = ticker)) +
geom_point(data = subset(keikaku, ticker == "bitcoin"), aes(x =date, y = tanka, colour = ticker))
ggplotly(g)